my meme

This meme is a re-creation of a classic but with a stats relevant twist… I hope you find it funny!

{r file=‘meme2.R’, eval=FALSE}

library(magick)

#scratch "image 1"

image_1 <- image_read("https://i.kym-cdn.com/photos/images/newsfeed/001/232/375/3fb.jpg") %>%
  image_scale(520)

text_box_1 <- image_blank(width = 200,
                          height = 300,
                          color = "#FFFFFF") %>%
  image_annotate(text = "Scratch",
                 color = "#000000",
                 size = 40,
                 font = "Impact",
                 gravity = "center")

vector_1 <- c(text_box_1, image_1)

#python "image 2"

image_2 <- image_read("https://pyxis.nymag.com/v1/imgs/42d/c5a/53aaae864601cd024b2dd1fddaa6a0839a-15-exploding-brain-meme.2x.rhorizontal.w700.jpg") %>%
  image_scale(542)

text_box_2 <- image_blank(width = 200,
                          height = 300,
                          color = "#FFFFFF") %>%
  image_annotate(text = "Python",
                 color = "#000000",
                 size = 40,
                 font = "Impact",
                 gravity = "center")

vector_2 <- c(text_box_2, image_2)

#R "image 3"

image_3 <- image_read("https://mat3e.github.io/brains/img/3.jpg") %>%
  image_scale(587)

text_box_3 <- image_blank(width = 200,
                          height = 300,
                          color = "#FFFFFF") %>%
  image_annotate(text = "R",
                 color = "#000000",
                 size = 40,
                 font = "Impact",
                 gravity = "center")

vector_3 <- c(text_box_3, image_3)

image_append (c(vector_1, vector_2, vector_3))%>%
  image_append (stack = FALSE)

image_4 <- image_append(c(vector_1, vector_2, vector_3), stack = FALSE)

image_write(image_4, "image_4.jpg")

my animated GIF

This meme is an appreciation meme for Spiderman by showing his swinging in action! Maybe that doesn’t make sense but are memes supposed to?

{r file=‘animation.R’, eval=FALSE}

library(magick)

# Spiderman images

img1 <- image_read("https://assets.reedpopcdn.com/spiderman_MDzjc1o.png/BROK/thumbnail/1200x900/quality/100/spiderman_MDzjc1o.png")
img2 <- image_read("https://www.pc-magazin.de/bilder/118540204/landscapex1200-c0/spider-man-test-ps4-2.jpg")
img3 <- image_read("https://cdn.kayiprihtim.com/wp-content/uploads/2021/12/Spider-Man-No-Way-Home-sure-758x403.jpg")
img4 <- image_read("https://images.immediate.co.uk/production/volatile/sites/3/2022/07/Spider-Man-PC-release-date-requirements-8ba6043.jpg?quality=90&resize=980,654")

# Resize

img1 <- img1 %>% image_scale("650x650")
img2 <- img2 %>% image_scale("650x650")
img3 <- img3 %>% image_scale("650x650")
img4 <- img4 %>% image_scale("650x650")

# Create list

img_list <- list(img1, img2, img3, img4)

# Create the gif

gif <- image_animate(image_join(img_list))

# Reveal gif

image_animate(gif, fps = 1)

# Write gif file .gif

image_write(gif, "my_animation.gif")